home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tc.d64 / mountain.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  131 lines
  1. 10 POKE45,.:POKE46,42:CLR:POKE53272,25
  2. 70 REM ********************************        *         VIC MOUNTAIN         *
  3. 130 REM* BASED ON THE ORIGINAL VIC 20 *        * PROGRAM BY ROGER D. BURGE    *
  4. 190 REM* CONVERTED TO THE COMMODORE 64*        * BY ROGER D. BURGE, #2667 TPUG*
  5. 250 REM* (C)1984 TORONTO PET USERS    *        * GROUP INC., TORONTO, CANADA  *
  6. 310 REM* MAY BE COPIED, BUT NOT FOR   *        * RETAIL SALE.                 *
  7. 370 REM* COPY PRG. BEFORE RUNNING IT  *        ********************************
  8. 430 GOSUB4750
  9. 490 POKEDP,.:POKEPO,67:POKE254,6:POKE195,67:POKE196,218:POKEK,.
  10. 550 F=.:G=.:U=.:POKEPEEK(PO)+P1,81
  11. 610 POKE53281,.:PRINT"[144][147]":POKE53281,W:POKE53280,W
  12. 670 FORT=1024TO1984STEP40:POKET,65:POKET+C,9:POKET+39,66:POKET+C+39,9:NEXT
  13. 730 FORT=.TO60-SK*TW:TT=INT(RND(W)*999)+1024:POKETT,68:POKETT+C,5:NEXT
  14. 790 PRINT"[149]$ _ VIC SKI LODGE %
  15. 850 [153]""[166]20[171][195](S$)[173]TW)S$
  16. 910 [151]P1[170][194](PO),81:[151]P1[170][194](PO)[170]C,.:[151]198,.
  17. 970 [161]A$:[158]MB:[139]A$[179][177]""[176][194](DP[170]W)[167][151]J1,129:[151]SI,WS:TI$[178]"000000":[137]1090
  18. 1030 [137]970
  19. 1090 [129]T[178].[164]SK:[130]:[158]M:CO[178][194](K)
  20. 1150 [139]CO[179]E[167]1330
  21. 1210 [139]G[179]EE[167][153][166]([187](W)[172]L)[170]N)"(null)(null)(null)(null)(null)(null)(null)":[151]K,.:G[178]G[170]W:[137]1450
  22. 1270 [153]"ONCLR$                FINISH                %":[151]K,.:[137]1450
  23. 1330 [139][187](W)[177]RN[167]1450
  24. 1390 [153][166]([187](W)[172]Z)[170]W)"LEN
  25. 1450 IFCO=DTHENSYSMJ:PRINTSPC((RND(W)*L)+N)"[155][210][210]
  26. 1510 [145][194](Y)[137]1090,1570,1810,1930,1990
  27. 1570 U[178]U[170]W:[151]J1,.:[151]J2,17:[151][194](PO)[170]P1,88:[129]T[178]60[164].[169][171]W:[151]54280,T
  28. 1630 [129]TT[178]W[164]20:[130]:[130]:[151]J2,33:[129]T[178]FI[164].[169][171]W:[151]54280,T:[129]TT[178].[164]TR
  29. 1690 [130]:[130]:[151]J2,.:[151]54280,33:[151]DP,([194](DP)[170]2)[175]2:[139]U[178]5[167]2230
  30. 1750 [129]T[178]W[164]SK[172]TR:[130]:[151]J1,129:[137]1090
  31. 1810 [151]SI,PO:[151][194](PO)[170]P1,82:[151][194](PO)[170]P1[170]C,FI:SK[178]SK[171]TW:[151]K,[194](K)[170]D
  32. 1870 [129]T[178].[164]D:[158]MJ:[153]:[130]:[151]SI,WS[170][194](DP):[137]1090
  33. 1930 [129]T[178].[164]WS:[130]:F[178]F[170]W:[151]J2,.:[137]1090
  34. 1990 [158]MJ:[153]"VERIFYATN                                      PEEK"
  35. 2050 [153]"CLR$                FINISH                %":[151]J1,.
  36. 2110 [151]P1[170][194](PO),81[170][194](DP):[151]P1[170][194](PO)[170]C,.:T$[178]TI$
  37. 2170 [137]2350
  38. 2230 [153]"STOP"[166]EE)" YOU NEED PRACTICE! "
  39. 2290 [153]""[166]19)"(null)(null)ONONONONON":[137]2650
  40. 2350 F[178]EE[171]F:FT[178][197](T$):FS[178]FT[170]5[172]F:[139]FS[179]BT[167]BT[178]FS
  41. 2410 F$[178][201]("0"[170][196](F),2)
  42. 2470 [153]"$TIME:"[196](FT)"        %$OBJECTS HIT:"[196](U)"  %"
  43. 2530 [153]"$GATES MISSED: "F$"%$SCORE:"[196](FS)"       %"
  44. 2590 [153][166]11)"STOP$BEST SCORE: "[196](BT)" %"
  45. 2650 [153]"VERIFY"[166]11)"$SKI AGAIN? (Y/N)%":[151]198,.
  46. 2710 [161]A$:[139]A$[178]"Y"[167][141]6910:[137]490
  47. 2770 [139]A$[179][177]"N"[167]2710
  48. 2830 [129]T[178].[164]500:[130]:[158]64738
  49. 2890 [131]165,251,201,2,208,5,169,90,56,176,2,169,91
  50. 2950 [131]160,0,145,253
  51. 3010 [131]169,3,145,195
  52. 3070 [131]169,9,141,134,2
  53. 3130 [131]24,160,0,162,24,32,240,255,169,97,32,210,255
  54. 3190 [131]24,160,39,162,24,32,240,255,169,98,32,210,255
  55. 3250 [131]169,135,133,241
  56. 3310 [131]165,197,201,7,208,3,56,176,16
  57. 3370 [131]201,2,208,3,56,176,23
  58. 3430 [131]173,0,220,41,15
  59. 3490 [131]201,9,208,10,169,21,141,1,212,162,0,56,176,11
  60. 3550 [131]201,5,208,9,169,23,141,1,212,162,2
  61. 3610 [131]134,251
  62. 3670 [131]166,251
  63. 3730 [131]224,0,208,9,198,253,198,195,162,81,56,176,6
  64. 3790 [131]230,253,230,195,162,83
  65. 3850 [131]160,0,177,253,141,167,2
  66. 3910 [131]138,145,253
  67. 3970 [131]169,0,145,195
  68. 4030 [131]173,167,2
  69. 4090 [131]201,32,240,4,201,84,208,8,169,1,141,167,2,56,176,50
  70. 4150 [131]201,70,16,8,169,2,141,167,2,56,176,38
  71. 4210 [131]201,82,208,8,169,3,141,167,2,56,176,26
  72. 4270 [131]201,85,208,13,169,4,141,167,2
  73. 4330 [131]169,33,141,11,212,56,176,9
  74. 4390 [131]201,128,48,5,169,5,141,167,2
  75. 4450 [131]238,170,2
  76. 4510 [131]24,160,0,162,24,32,240,255,96
  77. 4570 [131]173,0,220,41,16
  78. 4630 [131]201,0,208,5,160,1,132,252,96
  79. 4690 [131]160,0,132,252,96
  80. 4750 M[178]49152:SI[178]54273:K[178]682:W[178]1:L[178]19:E[178]28:N[178]7:Y[178]679:F[178]W:Z[178]38:D[178]14:NN[178]99:U[178]W:RN[178]W
  81. 4810 OX[178].5:MJ[178]M[170]199:WS[178]21:DP[178]251:PO[178]253:DI[178]90:TR[178]3:P1[178]1536:G[178]W:EE[178]10:CO[178]W:SK[178]1
  82. 4870 TW[178]2:FI[178]15:MB[178]49372
  83. 4930 T[178][187]([171]TI):[129]T[178]49152[164]49390:[135]A:[151]T,A:[130]
  84. 4990 [151]53281,W:[153]"LOAD":[151]53280,6:[151]53265,[194](53265)[176]8
  85. 5050 S[178]53248:[151]S[170]16,16:[151]S[170]28,.
  86. 5110 [129]T[178]S[170]39[164]S[170]43:[151]T,.:[130]:[129]T[178].[164]7:[151]2040[170]T,160[170]T:[130]
  87. 5170 [129]T[178]S[170]1[164]S[170]9[169]2:[151]T,50:[130]:[129]T[178]S[170]11[164]S[170]15[169]2:[151]T,59:[130]
  88. 5230 [151]S,83:[151]S[170]2,131:[151]S[170]4,179:[151]S[170]6,227:[151]S[170]8,20
  89. 5290 [151]S[170]10,119:[151]S[170]12,167:[151]S[170]D,215
  90. 5350 [129]T[178]S[170]44[164]S[170]46:[151]T,12:[130]
  91. 5410 [151]S[170]29,255:[151]S[170]WS,255:[151]S[170]23,.
  92. 5470 [129]T[178]54272[164]54296:[151]T,.:[130]:[151]54272,100:[151]54296,79
  93. 5530 [151]54277,68 :[151]54278,129:[151]54284,129:[151]54285,129:[151]54280,33
  94. 5590 J1[178]54276:J2[178]J1[170]7:C[178]54272:BT[178]NN
  95. 5650 [153]"NEED INSTRUCTIONS? (Y/N)":[151]198,.
  96. 5710 [161]A$:[139]A$[178]"Y"[167]5890
  97. 5770 [139]A$[179][177]"N"[167]5710
  98. 5830 [137]6910
  99. 5890 [153]"LOAD"[166]EE)"JOYSTICK #2 OPTIONAL
  100. 5950 PRINT"SKI DOWN VIC MOUNTAIN IN A SLALOM RACE!!
  101. 6010 [153]"PRINT#  TRY TO GET YOUR SKIER BETWEEN AS MANY FLAGS AS POSSIBLE. ";
  102. 6070 [153]"DON'T HIT ANY TREES  OR THE OUTSIDE FENCES.
  103. 6130 PRINT"  THE OBJECT IS TO GET DOWN VIC MOUNTAINAS FAST AS POSSIBLE. IF ";
  104. 6190 PRINT"YOU MISS A SET  OF FLAGS THEN EXTRA TIME IS ADDED TO    YOUR SCORE.
  105. 6250 [153]"  A BEEP WILL SOUND EACH TIME YOU PASS  THROUGH A SET OF FLAGS.
  106. 6310 PRINT"  USE THE SKI JUMPS ( [210] ) TO MAKE BETTERTIME.
  107. 6370 [153]"  TO MOVE THE SKIER:
  108. 6430 PRINT"[144]USE JOYSTICK #2:  PUSH STICK DOWN & LEFTOR ";
  109. 6490 PRINT"DOWN & RIGHT":PRINTSPC(19)"OR[144]":PRINT" USE CURSOR ^[146] OR CURSOR ";
  110. 6550 PRINT"_[146] FROM THE      KEYBOARD
  111. 6610 [153]" PRESS  F1  TO CONTINUE ":[151]198,.
  112. 6670 [161]A$:[139]A$[179][177]"INPUT"[167]6670
  113. 6730 [153]"LOADPRINT#  IF YOU GET STUCK IN ONE OF THE FENCES THEN THE EASIEST ";
  114. 6790 [153]"WAY TO GET OUT IS TO   RELEASE THE JOYSTICK OR KEYS.
  115. 6850 PRINT"  IF YOU HIT FIVE OBJECTS THEN YOUR GAMEENDS.
  116. 6855 [153]"ONCE YOU SELECT A SKILL LEVEL THEN THE SCREEN WILL DISPLAY VIC ";
  117. 6860 [153]"MOUNTAIN. WHEN  THE SKIER APPEARS THEN THE CLOCK STARTS RUNNING, SO";
  118. 6865 [153]" HURRY AND PRESS THE FIRE    BUTTON OR ANY KEY TO START HIM MOVING.ONONON
  119. 6910 PRINT"[144]ENTER SKILL LEVEL:":POKE198,.
  120. 6970 PRINT" 1 [146] - NOVICE":PRINT" 2 [146] - INTERMEDIATE
  121. 7030 [153]" 3 WAIT - ADVANCDED":[153]" 4 WAIT - OLYMPIC
  122. 7090 PRINT" 5 [146] - PROFESSIONAL
  123. 7150 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167]7150
  124. 7210 [145][197](A$)[137]7270,7330,7390,7450,7510
  125. 7270 S$[178]"NOVICE":[137]7570
  126. 7330 S$[178]"INTERMEDIATE":[137]7570
  127. 7390 S$[178]"ADVANCED":[137]7570
  128. 7450 S$[178]"OLYMPIC":[137]7570
  129. 7510 S$[178]"PROFESSIONAL":[137]7570
  130. 7570 SK[178][197](A$):RN[178](SK[170]W)[173]5:SK[178]30[171]5[172]SK:[142]
  131.